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iMSX-DOSlGDLS 

msx pm-yy—xo)® •#**, zco->';- *<?>$&&& 

r MSX-DOS TOOLSj-Cf, 

ii"SlS4:t*ftl*W->/jMSX-DOSt:linx.-C.t©MSX- 

DOSl".CD28-V-^V7h7ir , TOOLS"t^Jj^X : 5'y 

— yxf >j #"MED".£*xc7-t>'77V'— x^s-Vag 
a— FJ3E»*f*fc«>CE>T'tey7*7 J ^!ry**#tf*^— r 



MSXSBUG 

r MSX-S BUGjIiMSX-DOS \:V$M¥1-Z>->>* ] ) y 

?t>< -y ifx-t.r><-y m®8k\mw&"?&3-*v? 

WfcOLWfe'*^^*^* kOftMOfllfRIi W. 
L 1 1 < 97W x.7X*~$o ZiU'-X*). •S-X-7u?'7l*0)i'-< 

Ss>&9 y?77i PhLXUs MSX • L-80* S ,T, h tZ>-» 

»C0>V7(-'?i7UJMSX-DOS TOGLS/> ; a£#"C"* 

ffifi^l9,800R(^*4IOOOR) 



•MS-D0SIJ*Hv-f*'PV7htt(7)gSJffi«Tt; #ES3. MSX-DOS. B*IiMSX-DOS2IJ7 , ^#-C7)aiSX-r, 



MSXD0S2 





MS-DOSversion2.xxSJS0 

MS-DOS version2 . xx£i:&t±<A*5fl«x-rU7MJ«i£^TVL'7hV 
■fr-*/ OtMtIM*- ho £fcl=Jtt x MS-DOSVv>i:^x-f7'U'<;i'T<7) 
5B*45*tt**aU 1 ttfl)7P-ylf— r-f**£ftJ*T**77-f H#0 

•m^<e< fry a l/co -«>*:«>* 7W ^^^^c^sts^^su^Tyj^- 

<>3>V7^gg%v7,7 L A<7)mifeBjgiTto*fc\-JI^=l-K(iMS-DOS 
i:lRlL*v7MIS4^Tx-*fiP J CThe W0RDTfFfi£L^X#«r^<7)i$ 
TYPE=lv>K*iri-cfcoTli®l-m^t5Ci:A'''T#itoi/;xMS-DOSi: 



*fV7IDlC<fc£fVX*(D!BSiJT: 

MSXT(i, #-«7)i«-^7P<yb — r-f^7<7)3t -«:1 •&(7)7 : -*-<7x7^aT?7 

7-f7>5a>-*j*"*0r*l3* 1 K7*7T2K7-f7**ifc**fll4tto-Cafc: 

94Z&9&& \tim*.*~t IZW) $. to *0>Pgx 2«[0>7 f -f***A*irait 
*.**: , 55£<7)x-7**:* IT Li l WMflfeU Sto MSX-D0S2T(i N 7* 
-V^B$lI&&CZ e fcS>x^71DfrT r 'f.X7i::#£ &<*x IttSU L*to -ftU: 
ot\ 1 ■&C7)T r -f7v7^aT<7)3t°-4'l-x^oT7 r ^7«:*L-CLJ-5)fel^'t4 
0*flHI**UtLfe, 



<dir> 88-03-31 11:13a 

<dir> 88-03-31 11:13a 

i <dir> 88-03-31 11:13a 

m <dir> 88-03-31 11:13a 

ffiX TXT 797 88-03-31 11:18a 

Bll TXT 31388-03-31 11:17a 



h'Jt/FAX.TXTt'H* 

K. TXT'i:i.^77"f;u*-'* 



<i i *'sa> 



f£ T 



<£*> 



< TOOLS > 



6 * 



< C > < ASM > 



<%1f!>U7<i'W)<n2,m,*niiWt7T-oi><n%m, 



raSx-fL'5'hU^etJo77'-f;K7)ttSl-J:-pT> 



HELP«IIC7)-9-/tC-K 



TOiswaw^TOit.. 



ign ... twm 

IR....ftWJ<7L 
ATTRIB ... 77-fJW)jttC 



CO CHDIR©il§i 

p....ft:Wftb7HJ«/^ 



F«9S63V>Ki7)*HELP"T 

'.HLPW7-*Xh77~f;i-4 
ffl*t*llfHELP3V>K 



B #i§ MSX-DOS2 


n •=?. v K 


-« 






ASSIGN 


ATDIR 


ATTRIB 


BASIC 


BUFFERS 


CD 


CHDIR 


CHKDSK 


CLS 


COMMAND 


CONCAT 


COPY 


DATE 


DEL 


DIR 


DISKCOPY 


ECHO 


ERA 


ERASE 


EXIT 


FLXDISK 


FORMAT 


HELP 


MD 


MKDffi. 


MODE 


MOVE 


MVDIR 


PATH 


PAUSE 


RAMDISK 


RD 


REM 


REN 


RENAME 


RMDffi. 


RNDIR 


SET 


TIME 


TYPE 


UNDEL 


VER 


VERIFY 


VOL 


XCOPY 


XDIR 







MSX-C 



VtertJI 



r MSX-C Ver.l.ljIiMSX-DOS JrtttftUCBff'O 
Bffayt49ffc 

'&&.(D ft JtovxT^M-H^nonrecUon-recursive. ## 
•MM)*- 7- FOSA& t'WiCAt-TfiSiffittW r 

Jft«!Wi:i"J h9*r«.*nifc*7 r 5'*i^l«3- K0ROM 
ffc*W*401\MSXJH*-M^*V7rc':t70|!l!$& 

*Zff)V7l->x3'U«MSX-D0S TOOLS M-fiTT,. 

fiHft19,8OORGJBWi,00OR) 



MSX-C Librae 

PDTi>y-X"^^R^(J:f$^cOMSX-C Library t*t» 
MSX-CCMSXtf)^^ 4 «y ^flMg^fc*. 79?&£ 
Z OMHl AH 1 ! iJ 8S*tt-)/A r MSX-CVer.l . 1 it' 
ttt4M4fcO *i 'fS»«H ft^LONGSSCS** 
* - r--fS7<f 77>M •> *—&-?% 
::©?>( 7>!JH6J1Jt*^«:«.MSX0Ef^Wtfw^ 

iS*'L^7°n^7A4'C»la5{:J:!)^^1-W:* f ''J^t4:0 

9CSJU& MSXO 7v?~>%>?>fc 1 &k l i& f &-$Ki.tf 

t?Mt, 

K^«V7l">i7'i:«MSX-DOS TOOLSfiit/MSX-C Verl . Ift ! 'j2-STT. 

flfitt14,800R(as»i.ooon) 



• RAM^BK/WH^JtROMa-HJySH-S.WV^-IDD 

ui)«-7=i7^-*(y7h'>i7«>Ba4a«*««22o 
ffitt34,8OOR(£«i,0MPj)7j3**** 

• MED, MSX-M80.MSX-L80, MSX-C ver.1.1, MSX-S B 
UGU«'i=ttl5"t*U*0**A. (K'J'fcttHJLfci'T'n^AOA 
f* >f •> K 7-tV7 r a-. =ty*<4fi> \te$kf a )m%i : itlSOMSX- 
M80, MSX-L80, MSX-Qi^&IW^'l'-Ct. 



= 107-24 X£ffii£EitiftLli6-11-1 X';-x7ffi«lUt'^ «*)77x+-SKI*S6 TEL(03)486-8080 



ttaisaT 7 ^*- 



ylSCl 



SOFTWARE 



7f r TJWrci v5l * 
MSX0llffl<!:7P0 




*fflC*»CSJirct*To 



If ^ 'JaOIOAP^taO: 



l| NO. Nh"977j 

2 7«U 7<ftT* NO 

t: 3 -Or TjiI 

.: 4 sw" 

10! 5 7*9 

12! 7 70L>? 

13! 8 •fSC^V 

14! 9 h**" 

15! 10 0">7 

16! 11 t'OV 

17! 12 WT UaOT-^ 

18! 13 KO*aO 

14 ?1TJI"9 

20! 15 TJTV 

21 ; 16 T>7Tl> 

Edit Blank Copy Format Goto 



R0M2)-MJ-y> 

¥9,800 

• RAMg*l6K/\'-1> 
lJl±«MSX/<Va>T 



15 

m i nutes 

45 
second 




MSX-PLAN 



MSX-AID(x<K)(±MSX(7)/z«X7)'y-;U-V7h'!7x7''/vy>7— i>T% 

BAS\C7n7'7J*<nmft*T'<'y7*®m&<&Z.%itzft<7)&mzK 

vWztsZ&hti, StSRav^KTnf t/aiLTBO^ff HTfllT-To *££(** 
<7)#^^*ltt-r5Ci:/d:<sBASIC*^*^oTl^ilv>'K<7)ct-5tc^o 
Ct^'T^^toXHELP«|g6^'OL^Tl^5/z* N •(^^.^7JA• f •9•* x b4'<4^ 
TM«&Tto 



ddress C000 Data 00 



Graphic 
window 



C000 S3 00 FF FF 00 00 FF FF:BC 

C008 00 00 FF FF 00 00 FF FF:C4 

C010 00 00 FF FF 00 00 FF FF:CC 

C018 00 00 FF FF 00 00 FF FF:D4 

C020 00 00 FF FF 80 00 FF FF:DC 

C028 00 00 FF FF 00 00 FF FF:E4 

C030 00 00 FF FF 08 00 FF FF:EC 

C038 88 80 FF FF 00 00 FF FF:F4 

C848 88 88 FF FF 88 88 FF FF:FC 

C848 88 88 FF FF 88 80 FF FF.84 

C058 88 88 FF FF 88 88 FF FF:8C 

C058 88 88 FF FF 88 88 FF FF:14 

C868 80 80 FF FF 88 88 FF FF:1C 

C868 88 80 FF FF 88 08 FF FF:24 

C878 00 00 FF FF 00 88 FF FF:2C 
" _ F FF 00 88 FF FF:34 



RONia-MJ-yi* 

¥6,800 



• RAM8*32KA-f t- 

m±mMSX/<ya>T 
ZMM&2MH 



TVPE 
ASCII MJMF 




MSX-AID 



BAs\C7°a?7A<Dn?fmmb< 
mwmzfo± 



n&$L<7)BAS\czi>s<'( : 7}:lx&, l5~20ff&i*?fcmii!MM4 l Ht 

nm^tzZ7-v7*£<mmzitf,*iz±i*bmfthi<&<ni : 7z 




¥4,500 

(««¥400) 

• MSXTfettJHTM 

TV.???*-'?™*, 

it<ttJMSX2 1 e-KT 



MSX< 




• C23.MSX-PLANIJ7^*-C7)ffiffllT-r 



TI07-24 3K£fBi«Effi#Uj6-11-1XU-X7ffi*lUe^ *7*+-»«*» TEL.03(486)8080 ISKStt^^TP 

•*^Dyasfi:ttw-R«-*«-«*-*is#^-i«fl«-ttffl«a«:WiB«)Ji.«e«Msxi»*T/^*-cn»La*<^*^o 



/ISCIIEZD 



m 



MSX2»ffl7-70V7K B*SMSX-WriteH 
«r^35oThe W0RD^-*6IJfc£Tffr£Stifc: 

* MS-D0S*Iitx*;U77'-f ;ufc<7)5 



WfliH effKel-fj^iJ!: 



tt2fgf Sfio •a— *-»»•*««: rt»*ftfc 

32K'<-fl*0>SRAM£J:oT4$J*fc#fi*Miilfc 

•*«K:«$teS*8HSS.4tea/F*S(3iIK 

«5(Z)2ati<7)iM8^ttffl^lo«JisiB-^fB- 
TK^Jl^ROMrtJ^o •x-^5«S : MS-DOS^I 

mo*^*-Kfrtf7K-h> •RAMr-fX**MI: 
RAMr-V**"^*^** RAMf-'-f*?* N b<7)l5c 

IT, * «V3 >SMTCiK^4lTSfc7 ( - 5ftH4&£C 






izi$A.r 



>^|^| XAXXXy*:*-54H 

iSX-Writen 



ffitt:24,800R(£«:i.OOOH) 

., !» -gm P7T1 IZ8KlaJ;<7)VRAMfr««LfcMSXZ/<V3>T 



ESfc. The WORD[J.«?^*-tna'?TT 
MS-DOSIJ. *!?■( ?DV7htti7)gStiBt?TT 

•a«l§MSX-Wrii(3- •*-(7)i***--: CS*SMS> 

jaaa-«ffl««>^ne<n-t eft 

?<-- T107-24 *£«>SEIfi1lliJ 
6-11-1 ^)-i7SBii/ 
**-«**» TEL.03' 486)8080 



>.•>■/»- KJ 

• ■ . ■• 

■ 

■ 




III I • % 



^ 



VJ 



) 



I 



ASCII 



NETWORK 







ASCII NET 

7?tt-*7h®*M*«>**U&*li 0(03)486 9661 






ACS ««AHa>fc»0*7h7-* 



fco&IMItffctUt KU*AJMr9<»JJHt| *A4fc§ li,<ACS> 



f 5 -f^yi/-ftc*ti*^<0«««fBIH*'fr*W:<«»L.T<*i*t; 
#»1t*B«7P-yfcMZlR»fcy;7V^S7^hT3Zi:fcT'**"*; 

<ACS>tt»MAIL.SIG.VOICE.44:«a5a-^-: >3>*-»k««*il 
ft.*IEatt.B*y-*-X777"ftfc"0*>7**-'>3>tf-£a.*LT«* 
>7-l*V>aytfV^4-i:<0h7>¥7v3>-9— k*^*ffl»L.Tt^-r<ACS> 

ttt^rat*T'*-fefx**i*-r#6, a** **. mot*? **»#** 



PCS 7*f<7ft'<va>*K<xK&fc*a>*v-h7-* 



<PCSX=tt. B*£S<7)/N°y=r^*#£AEft' ( WTT#fclE& 

T***J:y.fcr>fc9*<tKfcJR7J:..f#i*»&.<PCS>0>**4 
IBfl0-Ojy/*7y-y7-M-f>-V7h'7iT0>"POOL" fit 



* r Bftli«a.*V7h*7 , -^Lt*y,*0)»tt«> ? £2.000** 

|iBfc£ltli.l»T>ifc«f*?3i\**»J^>P-KL*rr.1t 
ttWa7P-ykr-*5£Ktf*$l^fc9i::+#*l*oltT<£*t». 

<PCS>t»i--^ftfflitttf)»SIG.MAIL.VOICEfti:fl)a5a-^— >3 



MSX MSXa-tf-Ofc»0*7h9-^ 



K**ifc7"P^7A , Wh*,*'yh±Tatt-r*«»J*-k'^« r »»T 
t 7P?7A£*TJA£&<T6. 5T'7>n^K , eWIW=*CA»** 



<MSX>liS^3>HT*L«)5Ba*'ti/:^7K9-7T-r<MSX>lCli»SIG. 
MAIL.V0ICE&fc'O35a-*— >3>tf-e*»B#*a«.*»H#.B*£ 

-t^«*>7<>V3ytV7;5:t<7)h7Vlf7v3>^-k^^*U$r 





•7 , **-*-yhS8t*4-3,000R <ACSXPCSXMSX>#a<. 

««*-yH=JflX»»-6-^fi»* i H*3.000n<7>*Tt o 
•T'X*- starMWNbfc 
<ACS> 0***4*(5^pHS-C-)-4,OOOP3/S 

®5^H~20^IBJit----20R/3'» 3 20H*MJU-t-10,000R/Jl 
<PCS> ®***4*(5^H*T)-2,000n/fl 

(D5^H~20^HiT---20P3/3«' t20f§fS)«-t--8,0O0R/E 
<MSX>S»*W*CSWiW*"C'J-1,500R/S 

@5^H~20^H*-C--20P3/3«' T20H$raiU-t-7,500R/J! 

• <ACSXPCS>tt2400bpsfc1£*ITAS.J:yi»o*?lISM"CTo 

TTt\?ftU^7;i<#IM*>*4&tt<ACS>4.000n*<PCS>2,OOOP3v 










16- 

g 12- 
14 

g 

8- 
4 - 


«ffi*»* 


• 








PCS 

MSX 


5 10 15 


20 25 (flHttfflttn) 









ASD 



SOFTWARE 



M* SW / MSX^^f^yyyb 



DISK MSX m-i 



MSX/MSX2#J& f-fX^JK 3.5-2DD £ffi3,000R 

MSX-^V^-fJlf^O^a ry AxiJ 7*jCflMft3 *lfj V — kY—UO)-? a ^v A £*# I L fc, 
=»>**— ft +94^ h->3-rU2. k'r*7°v?"yJ*, 7-jt—y a >. 7°y >* X7'-7,^ 
t t ?^*«if^ 9. 7*-? 9 4 1-iT"-! #, f*iS#'>xfA, 7,72-7 • 't^, /»— h*at°— 7°o^- 
7*, fto$39#„ 



$?$%%$ 



*l&J21BilB'? p o ?'7 A 




MSX/MSX2#J& f-VX^HR 3.5-2DD £fi63,OOOR 



MSX-?#V>-t'fc& t:*, r, 7- < A. CO y 7 H5 A,_rti*&<7)7°n ^5 /4^50*£TO o 7i¥* ^ >*' 
> r«C^f, ^TSSisH ^JtBh 1 X *-7°n ^ 7 /»,7C3Rie^-&7C*^W^Btie7°n 77i,^a/-A, 

fe^S I y 7 h fto 



iW&fc* 




MSX-DOSX-A-A^K?^ 

MSX/MSX2*ti& y-'-fX^JK 3.5-2DD £flfi4,800R 



BEfiJ r MSX-DOS*-'<-v\> K7*7*j f^ttl/J^n ^7/.*afitoC0M7 7 -f ^ Aflffly-'k 
COM 7 r 4 ^7° S> y \ 7 V Y 8»-*\ D0SR57 -t > 7*7, DOSIKt*'* •> #, DOSISr * x h x 
r*4 * , PStifct- #.W¥*4 y\ 74*9 ?y 7\ MSX m£9t? *9*9i*. MSXffl^ - y 9 x TO 

7 7-f'K ffe, 



iiftfiyc'i' 



MSX-DOS 

H2E5Z3 



GO GO HARIER 




POCKET BANK ?U9?h3<<VW Vol. 1-3 



MSX/MSX2*tJ& T-VX7K5 3.5-2DD £fiifi3,000R 



xtvo =E-vzm if<? 




r 7° i ) > 7 tt>£fflfe -t <' T # 4 / < V 3 >iiff j ( :IS 
jfA(D>MX74< fk, 



\/q\ O WW%7C$ 

MSX/MSX2*foS tVX*)S 3.5-2DD Sflfi3,000R 




BEf IJ r V-> >f=AP1 PART2j • T-'-Aff IJ 07-f-V 7^ 
fe L hf—hrfv 7; UJMft9 *1fc7*n ^*5 A 24* 

kAiM* 74 *9t&*-#7*y?*9, -?yyl&¥ 

—A, X7°7'f \-'*2 — yz-rU :$?, y-a— h7°n 

**7A N ffc 



MSX/MSX2**(& T-f^7fi5 3.5-2DD ^fi!3,000R 




RESCUE THE PLANET 




sef'j r ^n»7"p 7'7 ^m/^'^<^m u *i r c t tf 

C7)^itj r BASIC (75 3 *yj r ^ffl 7°P 7'7 A||j(2^|8 
■£HfzJ&V c "Z?3t2r>£i)<7)'7u7 : 7l*mo*$:WL 



^ati7^*-<7)ffl«iT't" 3 



07 SS*B;SEm*UJ6-ll-l ^'J-xy^^LU tfJU («7X*-ttlKSl'^gR TEL03(486) 1977 WlVxstt^^T 1 " 



►7-y^^njy^M : <±flft-ft«-^- 



•miS#^-® D a a* •««««€%• ME<»±,3ie»MSX«*irv\^#fJS*Li2,»<«*V> 



amu<¥^-g> MSX7tf<ryhA><7a 



ESS 







MSXv#v>H||Sfl$I 
M680R •• 



I 



¥ f » Jis^ja o. 



Z£>3 










cs 



R.RG.flDttD* 




ffrWIE^ • ±.§k ^*: 



£11580R 



• • 



l f lr» f 4B 



iMdUlUU I a 








BITS 



• • 




ITSS 
£iffi580R • 



PQSKET BANK19 



:ul£] 






i 

59»=SM 



POCKET BA NKW 




£iffi480R 



| f lrTJ|S 



vy>liAPl 




& 



• •• 









= ■ •,:.. 



£fffi680R •• 



^y^^nm°i 



BASICCDay 



# - 

"OS. 






5*tt;i 



/E 



wamum 




BITS^ 
£ffi580R 



• • 



bshikhs 




£{ffi580R 



fcmwaaw 









£Mffi580R 



«f-MBXa)MHini 




£Mffi580R 



ES 



HNU 




#>r-y|-/\->$'->'J-7.'<7)ltf,Jf 



CZalST 7 **- 



=rl07 3UiUK>iESgWW6-ll-l ^J-x7iltWt^ i**j7^+-tliJ{S^*gB TEL03-486-I977 tffcltettA^T 



viSCII 



■#fftj 



mdig&m JtflB1,200R (iM*4300R) 

r MSX-DOS TOOLSj WJffl ltz7°n7*7J±ffi%*V)#)XMmitz-mX'to 
■??v7-t>7*7 M8(X y > ^ • n -#* L80& E , ^£^4' 7 -t > 7*7 7°n *•*? 5 > ^r£ 







#1 



MSX-DOSAP^ 

+*? e* Mti,2oon(JSfKoon) 

<?M 7X hcj: o^s l <*?!&, 77°yy- 




MSX-DOS^fe^ 

BITS* :£fffil.200R(&*4300R) 

MSX-DOS<7)t^T*^* v 5— BB- 

=3 -? > K oMA'f&.ii ' <o 7 -t > 7' 7 , 3-T4& 

tfrbVX¥W-fftl£. MSX-DOSCD-f^t 
a*6a* h msx j— -f — 'i^OHTfTo 




£ffi1.400R(:&*4;300R) 




"5— <A/(Z) MSXV*v>SIJ# 

^ffi780R(^*4300R) 

r 7-< K<F)V7 bM$A,j<D'>B-\--7 u?* 
7A30^£— f?{:*g^h &6-tf"C4 ^-vJIlSl 




mmm-m mi, won (&*43oor) 




MSX 

M1,200P3 (&¥4300R) 

- a gii-r - # ^- * it; 5 I ^ £ 4-lf $BW 
3i:Sffl* ? S<7°n**7A££Stfii 




MSX 

• AVS/au/*- 

LAP STAFF* 

M1.200R (&¥4300R) 

#W r 7°D /7ADJj CO t'x^Kfi fc IT, 




/t-i/WI/n.— * 



PC-88VA^? 

7X+-#H*iftg|5fe 

M2.500R (&¥4300R) 

PC-8800^ V -x*JLbf£$SPC-88VA #ft 



i MSXv-^(S7'^.+-c7)iS#T-ra 



: 107 mSf 
>7-y:>*) ?□?'£; 



i*UJ6-ll-l X'J-X? 



S*lJjt:;m*)7^ + -m)iS«*aS TEL. (03)486-1977 ttS#tt^X^"~ 



MIA 

BOOKS 



MtfMCfc. MIA&xPX 





mn 



£flfi980R(:£*4250R) 







CHIf 



— AV3>X<b©BR 



y 3>-§fHo-L*'bC0 -i^rS^r^ ^-r-KV ^j^ilLT, iliaJSH'Htft^/;, ff 







GE3* &JGCJ i 




mm £flfi780H(&*4200R) 



Wizardry tit WWtliV ?fACi *>*> 
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1213 
131? 
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211? 
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350 
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'SAVE"t AIBUN.BAS 

ttl.i,i,' ■M'"i3L--'?- 
' Version 3.62plus 

' (C) 1988 by asica soft 

CLEAR li?i?i?:DEFINT A-Z:DIM C*(2®):DEF USR=«eH156 

SCREEN 1:WIDTH 32:CLS:C0L0R 15,®,®:KEY OFF 

DM=RND(-TIME) 

LOCATE i?,23:PRINT" W.Vh" t,V l?i— 9- Ver3.62plus 

LOCATE i?,23:PRINT" (C) 1988 by asica soft 

FOR 1=1? TO 1®:PRINT:NEXT 

PLAY "t 132si?m2i?i?i?0o61 8eel6* 16g4 .f g-fel " , "t 132s®m2®®®®o61 8ccl6d-16 

-ed-cl" , "tl32vl51 8o2g2r8b-aa-g2 

FOR I=i? TO 5®®®:NEXT 

FOR I=i? TO 5:PRINT:NEXT 

LOCATE ®,12:PRINT " W-fcL. ' (J) frl.i,V<.S -3<*Ji*JK2 to 2®> 

LOCATE 2i?, 15: INPUT "....": IN* 

LN=VAL ( IN*) : IF LN 2 OR LN 2® THEN 251? 

IF LN/2=INT(LN/2) THEN Ll=LN/2 ELSE Ll=LN/2+l 

L2=LN/2 

WIDTH 29:CLS 

GOSUB 37i?: PR I NT ST*: PR I NT 

IN*=1NKEY*:IF IN*="" THEN 31® 

IF IN*=" " THEN 341? ELSE IF ASC(IN*)=27 THEN RUN ELSE 311? 
A=USR«i?) 

IN*=INKEY*:IF IN*="" THEN 35® 

IF IN*=" " THEN 31® ELSE IF ASC<IN*)=27 THEN RUN ELSE 35® 

FOR 1=1 TO LI 

IF 1 = 1 THEN C*(I)=CHR*(RND(1)*45+177) :GOTO 41® 

C* < I ) =CHR* ( RND ( 1 ) *46+ 1 76 ) 

IF C*(I> >="*)" AND C*(I)< = "t-" AND RND(l) =.5 THEN C*( I ) =C* ( I ) +"" " 

IF C*(I) ..:■ = ", \" AND C*< I ><="*" THEN IF RND(1)>=.4 THEN C* < I ) =C* ( I ) 

ELSE IF RND(1)>=.7 THEN C* < I ) =C* ( I ) +"" " 
NEXT 
ST*="" 

FOR 1 = 1 TO LI :ST*=ST*+C*(I) :NEXT 
FOR I=L2 TO 1 STEP -1 :ST*=ST*+C* < I > :NEXT 
RETURN 
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SHORT PROGRAM ISLAND 3 



l*fe^fl 



ws*6©ta*f^s^ 
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Slt4*0!>?n^5A«: 













XLS ofco fl^fcHmfMo && 
— # bH L i^HS/c* J; 4*, 



*> o t *° 'j y- a #— # * n fc ? 
M i: Us -5 y- a s-n -9 #3^ T- 
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HI 
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ioS-fyn^^A^-RUN^-a-^i:, 



10 SCREEN 1,2: KEY OFF: WIDTH 32: CLEAR 100,& 

HD3FF:DEFINTA-Z :COLOR 7 

20 LOCATE 5,10sPRINT"<b3:Cfc ft" #fcH &"Ug<46.. 

30 FOR 1=0 TO 7 

40 B*="" :FOR J=0 TO 1 

50 READ A*: FOR K=0 TO 15 :B*=B*+CHR* ( VAL ( "& 

H"+MID*<A*,K*2+1 ,2) ) ) :NEXT:NEXT 

60 SPRITE*U)=B*:NEXT 

70 READ At: FOR K=0 TO ISiVPDKE 288+K,VAL(" 

&H"+MID*(A*,K*2+1 ,2) ) :NEXT 

80 FOR 1=0 TO 2 

90 READ A*: FOR K=0 TO 15:P0KE &HD400+I*16+ 

K , VAL ( "&H"+MID*CA* ,K*2+1 ,2) ) :NEXT :NEXT 

100 DEFUSR=&HD400 

110 CLS 

120 LOCATE 0,24:PRINTSTRING*<31 ,37) ; 

130 LOCATES, 23 :PRINT" TIME s" ; 

140 A$="s0m4000tl501 16" :PLAYA*,A* 

1 50 A=0 : F-4 : K=0 : CP=0 : T=300 : T I ME=0 

160 FOR 1=0 TO 3:CX(I)=INT(RND(1)*30)+1 :CC 

<I)=INT(RND(1)*2)*2-1 :NEXT 

170 PLAY"o4c8 .cc8 .de8 .dg8 .eo5c8 .o4ag8 .eg4" 

, "o3c8 .cc8 .co2b8 .bb8.ba8.aa8 .ag4 

1 80 ONSPR I TEGOSUB390 : SPR I TEOFF 

190 S=STICK(0) :A=A+(S=7)-(S=3) :A=A-(A<0)+( 

A>59) 

200 F-9-P 

210 PUTSPRITE0, <A*4,16B) ,15,P 

220 IF STRIG(0) AND K=0 THEN KX=A*4 :KY=20 : 

K= 1 

230 IF K GOTO 250 

240 PUTSPRITE 1 , ( A*4 , 160) ,8 ,6 :GOTO 270 

250 KY=KY-1:IF KY<0 THEN K=0:GOTO 240 

260 PUT SPRITE 1 , (KX ,KY*8) ,8 ,7 :SPRITEON 

270 SPRITE OFF:FOR 1=0 TO 1 

280 CX<I)=CX(I)+CC(I) :IF CX ( I ) =0 OR CX(I)= 
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tz 1]—VJU*—<7>&fcX**t<nj5 

falZWlZ. 7.^-7.=^— X^^± 

Z <T>?- Ali ? -f Afc ft r> X 

Tw^:i^?nxi^ ztiii, 

ft of:b y— A :*— / \*— ft ~ t; ~ 

D * *ft t* Jfttf fc***PIW= i 

fc*U£ ^< A*<50*SJpL*«73fc** o 

tf—Atti tzUzK, ZtM. 
tifrbtl^X^ ttzh&b-st: 

Tt>AT*fcftl\, £fr 
bP$-?T< ^»l«s 

ftA,£fcftWj-£; * 

J:^-fAA*20MoTL 
£o(T)tz t£frh* M 

Tft#*lHtftt»vfc>W 

|f;iJfn^/:b^Uo ft\ ft 
Ui^bLi^Uf: m^$£ 
g&(7>o fe 'J 6\ ^Ifli * h U*J&< 

fcSo/c'J LT „ 

^LTy— A*— /"?— fcft$£ 

tltzil&^BtfSltoti^tzfr. Tft 

zirft, -9-A, s MftA,fr£fttf 
fc~ ! 

**lT*( + S?\ 300fT<7)LOCATE 
LOCATE RND(1)*3-1+CX(I) 

i * 2+1 o 3 *it\ ■#• t 17 > y 
Aizm-ox^tzWf> mmfr^ 

hXiZXilZ^^tzttttZo Z 

titfts y-A/)<*s«(Hj*(zfts 

^(Z. 270^tW. FOR I = 
TO 1 <7)1 £ N 2^3(lLT<fr <£ 





<r 






A, S 'J ii^r £ ^II^SI < fto % 
^-?^bte 3 Cbi^'PI^Uf 
ftv^ft *>t£Mzz<n{&%oiz 
TtufcifflW: i ^cftsrfrb^-? 

T<&J:? zfifc*£> Ifl^SK 
Ttu^fc Ltifti\ 

&£ s (Ji;*!><7>8*>?-fA#150 
ffC7)T= 300(7)300, JiUfc^-?*: 
£#CWNF*t.3*-fAa«4StfT0> 

T=T+50<7)5a H*i(lMafco/c£ 
#<7);jgti:^ -f A<7)|££A<34(Wt<7)T 
=T-20<7)20C:ftoTV5 o Zft 
b<7)filfe v L^l^l^oT*?) 
fcBteV.*. #(-, ;/£3|^A£T 

z<*#< Lrcurtiu; ft^ft 

if** k'Tft-ir-ACft »J ¥ -5 /-ifto 

^U, 470^T(7)PLAY5:T^oT^ 
%MZVfZ, hl'>UJmizLX 
fc®a^^ftoSOUND5C?r^rjfc 
U LT. Ky*~>ftA,T$&ttj 
LT^fcb. ^Avfcf^tjL 
HftUte, 



THEN CC(I)=-CC(I) 
290 PUT SPRITE 2+1*2 , (CX ( I ) *B , 1*16) , 14 ,CP : 
PUTSPRITE 3+1*2, (CX ( I ) *8+16 , 1*16) ,14,CP+1 
300 LOCATE RND(1)*29+2,I*2+1 : PR I NT"*" ; 
310 NEXT:SPRITE ON 
320 CP=2-CP 
330 D=USR(0) 
340 IFK THEN IF ( VPEEK (6816+ ( A+"l ) /2) ORVPEEK 

(6B16+(A+2)/2) )=36THENPLAY"a" :T=T-20 

350 T=T-1 : LOCATE 10, 23: PR I NTT; 

360 IFTO06OTO400 

370 IFSHTHENGOSUB470 

380 GOTO 190 

390 SH=K: SPRITE OFF: RETURN 

400 LOCATE 1 , 23 : PR I NT0 ; 

410 PLAY"o5c8 .o4ao5c8 .o4ag8 „eg8 .eg4o5c4c4" 

,"o3c8.cc8.co2b8.bb8 .bb4o3c4c4 

420 L0CATE12,12:PRINT"GAME OVER" 

430 L0CATE12,14:PRINT"SC0RE:" ; INT (TINE/6) 

440 LOCATE10,16:PRINT"PUSH ANY KEY"; 

450 IFINKEY*<>" "GOTO450 

460 A*=INPUT*(1) :GOTO110 

470 PLAY"cc#dd#e" :CX (0) =INT (RND ( 1 ) *30) +1 

480 CX (1)=INT(RND(1)*30)+1 :S=S+10 :T=T+50 :S 

H=0 

490 PUTSPRITE 1 , <KX ,KY*8) ,8 ,6 

500 FOR 1=0 TO 300:NEXT:RETURN 

510 DATA 0000000000070F1F3F3F3F3F1F0F0700 

520 DATA 387EFFFFFF7EBFFFFFFFFFEFDFDF8E00 

530 DATA 0000387C7EFFFEFDFFFFFFFBFB7D3800 

540 DATA 000000000000E0F8FCFEFEFEFCF8F000 

550 DATA 00000000000F1F3F7F7F7F7F7F3F1F07 

560 DATA 00183C7E7E7DBFFFFFFFFFEFDFDF8E00 

570 DATA 387CFEFEFFFFFEFDFFFFFFFBFD7E7E3C 

580 DATA 000000000000C0E0F0F8F8F8F0E00000 

590 DATA 03470507032103060503070606060606 

600 DATA C0E2A0E0C084C060A0C0E06060606060 

610 DATA 03270507130103060503070E1C1 80000 

620 DATA C0E4A0E0C880C060A0C0E07038 180000 

630 DATA 01071F3F7F7FFFA10101010101010101 

640 DATA 00C0F0F8FCFCFE0A0000000000000000 

650 DATA 01010103030303070707070501010100 

660 DATA 00000080808080C0C0C0C04000004080 

670 DATA 101038387C5C6C38FFFFFFFFFFFFFFFF 

680 DATA 2100181 100D501C002CD590021001801 

690 DATA 2000AFCD56002100D511201801C002C3 

700 DATA 5C000000000000000000000000000000 
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|±* ? -r 5 > ^WH ^i'5„ T 
U>/Wr#0lLfcH£$tt*230fT 

230 ZZ = 0:P=1-P o ¥?f£ 
tznX\ ££$fttlf$tt < fc£ 
ttl* fc*„ T*t>, SU&c7)#3?t(2A-? 
TUS*Pb\ &<RP(?tt)6&CM 
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ii^tb^Oo a*±ws, i201t<7) 

DRAW3t£ % 610*T^b<7)DATA&T* 
i^Tl^^b, |&7)fl&l7*A(J 




r~L" 



10 SCREEN 1 ,3:KEY0FF:R=RND(-TiriE) 

20 LOCATE 6,10:PRINT"ir 1,'^iT M£ J-ll OH 

30 FOR 1=0 TO 7 

40 B*="" :FOR J=0 TO 1 

50 READ A*:F0R K=0 TO IS jB*=B*+CHR*<VAL (:"'&H 

"+MID*(A$,K*2+1 ,2) > ) :NEXT:NEXT 

60 SPRITE*(I)=B*:NEXT 

70 Z=112:ZZ=3:U(0)=190:U(1)=190 



80 P*(0>=' 



L" :P*<l)="ii,iC&" 



90 COLOR 3, 5, 5: SCREEN 2 

100 CLOSE :OPEN "grp:" AS #1 

110 FOR 1=0 TO 3: READ A* 

120 DRAW "XA$;" :NEXT:PLAY"tl201 16s0m3000" ," 

tl201 16s0m3000 

130 PAINT (200,30) : PAINT (166,71) 

140 PAINT (17,101) sPAINT (56,141) 

150 LINE <124,100)-(132,150) ,8,BF 

160 LINE (0,0)-(B,191) ,14,BF 

170 LINE (247, 0)- (255, 191), 14, BF 

180 PRESET (56,180) 

190 PRINT#l,"fRK"A. tZ'<" L" 

200 PLAY"o4c8.cc8.deB.dg8.eo5c8.o4ag8.eg4" , 

"o3c8.cc8.co2b8.bb8.ba8 .aa8 .ag4 

210 K1=STICK(0) :K2=STRIG(0) 

220 IF ha OR K2 THEN ZZ=ZZ* <K1 <>0) ELSE 210 

230 ZZ=ZZ+(Z>112)*.3-(Z<112)*.3:P=1-P 

240 R=INT(RND(l)*5>-2 

250 Z=Z+ZZ-(STRIG<0) ) *R+ (STICK (0) <>0)*R 

260 PUTSPRITE , (32 ,80) ,7 ,P 

270 PUTSPRITE 1 , ( 192 ,80) ,7 ,P+2 

280 PUTSPRITE 2,(Z,0),15,4 

290 PUTSPRITE 3 , ( Z ,32) , 15 ,5 

300 PUTSPRITE 4, (Z, 64) ,15,6 

310 PUTSPRITE 5, (Z, 96) ,15,7 

320 PUTSPRITE 6 , ( Z , 128) , 15 ,4 

330 PUTSPRITE 7 , ( Z , 160) , 15 ,5 

340 U=-(Z>112) :X=247*U 

350 LINE (X + l ,U(U) )-(X+7,U(U) ) ,13 

360 U(U)=U(U)-1 :IF U(U)>0 THEN 230 

370 PLAY"o5c8.o4ao5c8.o4ag8.eg8.eg4o5c4c4" , 

"o3c8.cc8.co2b8.bb8.bb4o3c4c4 

380 PUTSPRITE 2,(0,208) 

390 PRESET (40,50) 

400 PRINT#1 ,P*(U) ;"<J) H>H'. ! ! " 

410 FOR 1=0 TO 2000:NEXT 

420 PRESET (110,170) : RESTORE 610 

430 PRINT#1,"HIT SPACE KEY" 

440 IF STRIG(0) THEN 70 ELSE 440 

450 DATA00000 1 1 020307FFFF0703020 1 1 0000 

460 DATA70FCFEFEFE7F7F7F7F7F7FFEFEFEFC70 

470 DATA040E0E1F0F1717F7F717170F1F0E0E04 

480 DATA00000000000000000000000000000000 

490 DATA0E3F7F7F7FFEFEFEFEFEFE7F7F7F3F0E 
500 DATA0000808040C0E0FFFFE0C04080800000 

510 DATA00000000000000000000000000000000 

520 DATA207070F8F0E8E8EFEFE8E8F0F8707020 
530 DATA01010101030303070707070F0E080808 

540 DATA000000008080C0C0C0E0F08000000000 

550 DAT A080808 1 8387C7CFCFCFE7E7E3F0F0 1 1 

560 DATA00000000000000000000000000000000 

570 DATA00000000000000000000000000000000 

580 DATA808080E0787E7F3E3E3C3C 1818101010 

590 DATA000000000 1 030707070703030 1 000000 

600 DATA10101070F0E0E0E0E0C0C0C080808080 

610 DATA "BM212,24G30H30E30F30" 

620 DATA "BM165,70D30L110D30R40D20R105U80L3 

5 " 

630 DATA "BM16,100D70R30U70L30" 

640 DATA "BM55,140D20R30U20L30" 
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100 SCREEN 1 ,3:KEY0FF:C0L0R15,4:WIDTH32:A=R 
NEK-TIME) :PLAY"T192L4S0M3000" , "T192L4S0M30 

00" 

110 P(1)=5:P(2>=1 :P(3)=6:P(7>=4:P(8)=5 

1 20 RESTORE : FOR I = 1 T06 : S*= " " : FOR J= 1 T032 : REA 

DA*sS*=S*+CHR*<VAL<"&H"+A*) ) : NEXT J : SPRITE* 

<I)=S*:NEXTI 

130 F0RI=1T06:READC(I) :NEXTI 

140 PRINT :PRINT" ***££fr:< W&XBi ***" :L0CA 

TE 3,7:PRINT" " 

150 T=10:S=0:PUTSPRITE7, (40,152) ,15,4:PUTS 

PRITE8, (72,136) ,1 ,5 :PUTSPRITE9 , (104,152) ,1 

5,6 

160 LOCATE20,3:PRINT"£l.)t; ,, ;T;" " :LOCATE20 

,6:PRINT"^C'*i" ;S;" " : IFT<0GOTO290 

170 F0RI=1T06:PUTSPRITEI , (0,0) ,0,0:NEXTI 

1 80 PLAY " 05CGACBAFEDC " , " R6405CGACBAFEDC " 

190 LOCATE4,14:PRINT",7»°--.L,^ ***•-* ft, " 

200 IFINKEY*<>" "GOTO200 

210 L0CATE4,14:PRINT" \,HT to ! " :F0RI = 1 

TO600 :NEXTI :F0RI = 1T03 :A ( I ) =INT (RND ( 1 ) *3+l ) 

:PUTSPRITEI , (8+32*1 ,24) ,C(A(I) ) ,A(I) :NEXTI 

:PLAY"E16C16" :TIME=0 

220 F0RI=1T03 

230 A=ST I CK ( ) : I FA=0GOTO230 

240 Z(I)=P(A) :PUTSPRITE3+I , (8+32*1 ,72) ,C(Z 

(I) ) ,Z(I) :PLAY"A16" 

250 A=STICK(0) :IFAO0GOTO250 

260 NEXTI :TT=TIME :T1=TT¥60 :T2=INT < (TTMOD60 

) * 100/60) /100 :L0CATE4 , 14 :PRINTT1+T2 ; " 

" :FORI = 1TO400:NEXTI 
270 T=T-T1-T2 :P=0 :F0RI=1T03 : IFA ( I ) =Z ( I ) -3T 
HENP=P+1 

280 NEXTI :S=S+(2--P-l)*10:LOCATE4,14:PRINT" 
S'lto" ; <2"'P-1)*10;" " :FORI = 1TO400:NEXTI 
:GOTO160 

290 L0CATE4,14:PRINT"** JJtiU ** 
300 PLAY"05BAGFEDC8C8" , "04BAGFEDC8C8" :F0RI 
=1TO600:NEXTI 

310 IFINKEY*<>" "THEN310ELSE150 
320 DATA0 ,0 ,6C ,44 ,28 ,28 ,39 ,7B ,7F ,7F ,4F ,3F , 
3F,1F,0,0,0,0,0,0,0,0,E0,B0,E8,F8,F4,F4,FE 
,FF,0,0 

330 DATAF , IF ,3F ,3F ,7C ,7B ,7F ,7F ,3F , IF , IF ,7 , 
10,24,49,92,0,80,C0,E0,60,AE,BF,BF,FF,FF,F 
F,FE,0,92,24,48 

340 DATA0 ,0 ,F , IF ,3F ,3F ,7C ,7B ,7F ,7F ,3F , IF , 1 
F,7,0,0,0,0,0,80,C0,E0,60,AE,BF,BF,FF,FF,F 
F,FE,0,0 

350 DATA0,0,0,0,0,0,0,3,7,5,E,1B,1F,BD,7,2 

0, 0,0, 0,0,0,0,0,00, 60, E0,F0,F0,F8,FC,F0,0 

360 DATA0 ,0 ,7 , IF ,3F ,3F ,7F ,7F ,7F ,66 ,44 ,0,0, 

0,0,0,80,80,F0,FC,F6,FA,FF,FF,FF,B3,91 ,80, 

80,80,90,60 

370 DATA0,3,7,D,D,D,F,7,3,0,1,1,1,1,1,1,0, 

C0,E0,70,70,70,F0,E0,C0,0,E0,F0,F8,FC,B0,1 



380 DATA7,14,15,15,1 ,15 
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20 CLEAR 5130 

30 COLOR 15,1 :CLS: KEY OFF: SCREEN 1,0,0 
40 DIM MS* (37) sBOSUB 500 

50 MS=0:R=R+1 :IF R=6 THEN 410 ELSE GOSUB 6 
10 

60 X=4:Y=5:T=145:CLS:S0UND 6, 3: SOUND 7,0 
70 LOCATE 9, 5: PR I NT "SUPER PENPE" 
80 A*=""sFOR 1=0 TO 6 : A*=A*+"-" :NEXT 
90 LOCATE 1 , 7 : PR I NT " r" +A*+ " i " 
100 LOCATE 10 ,14 SPRINT" l -"+A$+" J " 
110 FOR 1=8 TO 13:L0CATE 10 , I :PRINT" I " :LOC 
ATE 18 , 1 :PRINT" I " :NEXT 
120 LOCATE 1 1, 1 6 SPRINT" ROUND ";R 
130 LOCATE 11 ,18:PRINT"TIME" ;T 
140 A=Y*8+55s PUTSPRITE , ( 128 , A) , 10 ,0 
150 FOR 1=1 TO 6:L0CATE 11,I+7:PRINT MID*< 
M*(I) ,X-3,7) 

160 NEXTrLOCATE 12 , 10 :PRINT"START" 
170 IF <STRIG(0)ORSTRIG(1) )=0 THEN 170 
!••§»•>•••••• MAIN ■—————• 



180 
190 

200 

210 



X1=0:Y1=0:A$=INKEY* 

IF INSTRC'Gg" ,A*)ANDA*<>"" THEN 340 

IF X=60 THEN LOCATE12,10:PRINT"GOAL! " : 

GOTO 50 

220 LOCATE 1 1 , 18 sPRINT"TIME" sT 

230 T=T-1:IF T=0 THEN 340 

240 S=STICK(0)ORSTICK(1) :X 1=- (S=7) * ( X>4) - ( 

S=3) 

250 IF MID*(M*(Y + 1) ,X,1)<>" " AND (STRIG (0) 

RSTRIG(l) )=-lANDY>l THEN Yl=-1 

260 IF MID*<M*(Y+Y1> ,X+X1 ,l)=" h " THEN X1=0 
SY1=0 

270 A*=MID*<M*<Y+1> ,X + X1 ,1) :IF A*<>"fc"ANDA 

*<>"h"ANDYl=0 THEN Yl=l 

280 X=X+X1 :Y=Y+Y1 

290 A=Y*8+55:PUTSPRITE , ( 128 , A) , 10 ,0 

300 FOR 1=1 TO 6:L0CATE 11,I+7:PRINT MID*< 

M*(I) ,X-3,7) :NEXT 

310 MS=MS+1:IF MS=38 THEN MS=1 

320 PLAY MS* (MS) :G0T0 190 

330 / •••••••••••• GAME OVER ••••••••••• 

340 FOR 1=0 TO 600:NEXT 

350 SOUND 8,12:S0UND 9,12sS0UND 10,12:SOUN 

D 7,49 

360 FOR 1=200 TO STEP- 10 : SOUND 1,0: SOUND 
3,0: SOUND 5,0: SOUND 0,1: SOUND 2, I +5: SOUND 
4,I + 15:NEXT:FOR 1=0 TO 99 :NEXT :PLAY"E16R1 

6" 

370 LOCATE 12 ,9 :PRINT"GAME" 

380 PLAY"DR16" : LOCATE 13 , 1 1 : PR I NT "OVER" 

390 IF INKEY*="" THEN 390 ELSE MS=0:GOTO 6 



400 ' ————— HAPPY END ••>•••••••>• 

410 FOR 1=8 TO 12:L0CATE 11,I:PRINT" 
" :NEXT 

420 PUTSPRITE , ( 104 ,96) , 10 ,0 :PLAY"R1 " 

430 PUTSPRITE 1 , ( 152 ,96) ,8 ,0 sPLAY "Rl" 

440 FOR 1 = 104 TO 124 sPUTSPRITE 0,(1, 96), 10 

,0:PUTSPRITE 1 , (256-1 ,96) ,8,0 

450 FOR J=0 TO 49:NEXT J,I:LOCATE 11,10:PR 

I NT "THANK" 

460 LOCATE 1 1 , 10 : PR I NT "THANK" : LOCATE 14,11 

sPRINT" YOU! " :FOR 1=0 TO 999 sNEXT sBEEP 

470 D*="T1 14S13L8" sA*=D*+"06DDDD2 .DDDDCDEF 

EDDDD2 . " :B$=D*+"05BBBB2 .BBBBAB06C04BABBBB2 
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. " :C$=D*+"04GGGG2 .GGG6GGGGGGGGG2 . " 
48IZI PLAY A$,B$,C$:PLAYB$,C*:G0T0 480 
490 ————— VRAM iir'l IMIIttlll 




500 FOR 1=384 TO 727 : A=VPEEK < I ) : VPOKE I ,A0 
RA/2:NEXT 

510 FOR 1 = 1064 TO 1071 : A=VPEEK < I ) i VPOKE I, 
A0RA/2:NEXT: VPOKE 1071 ,&H18 

520 FOR 1 = 176 TO 223 : A=VPEEK ( I ) : VPOKE I ,A0 
RA/2:NEXT 

530 FOR 1=0 TO 1 :FOR J=0 TO 7: RE AD A* 
540 VPOKE &H440+J+I*72,VAL("&H"+A$) :NEXT J 
,1 

550 VPOKE &H2011 ,&H87: VPOKE &H2012 ,?<H45 
560 B$="":FOR 1 = 1 TO 8: READ A* 
570 B$=B*+CHR*(VAL<"8<H"+A*) ) : NEXT : SPRITE* ( 
0)=B* 

580 FOR 1=1 TO 37:READ A* :MS* ( I ) =A* :NEXT 
590 RETURN 

600 ' ——— NAP SET IIIIIIIIIIHt 
610 FOR 1=1 TO 5:M$(I)=" " :READ A* 
620 FOR J=l TO 14:B$=MID*(A$,J,1) :A=VAL("& 
H"+B$) 

630 B*«MID*<" i, ,, t,li n n h i»h 

tilt till U hit h H lililili hit hlvhli liltlili" ,A*4+1 

,4) :M* < I ) =M$ ( I ) +B* :B*=" " :NEXTJ , I 
640 M$(l)=N*<l)+"« " :FOR 1=2 TO 5:M*(I)=M 
$<I>+"| ":NEXT 

650 n* ( 6 ) = " &bM* l &b&h&&b* l khhh&h*M l b*,kkh&*&*,h 

660 RETURN 

670 ' ————— DATA ——— 

680 DATA 7C,E6,FA,FE,FE,FE,7C,00 

690 DATA FF,55,AA,00,00,55,AA,FF 

700 DATA 81 ,81 ,BD,7E,DB,DB,DB,7E 

710 DATA T112S1M2000O4L16C8,G,C8,C,G8 

720 DATA B8,G,A8,A,A8,CC,G,C8,C,G8,B8 

730 DATA G,A8,A,A8,FE,D,E8,D,E8,AG,F+,G8,0 

5C 

740 DATA 04G8,05C04G,A8,05C8,CC,E,C8,R8 

750 DATA 00000492000000,00001249000038 

760 DATA 07E03FFE035878,100940000404F8 

770 DATA 303E1FCF2955F8, 00000000000040 

780 DATA 001F3FFFFF1CB0,01C18000016240 

790 DATA 0C09FFFFFD01B0,1C3C0000033C40 

800 DATA 00000000000400,00000404003880 

810 DATA 0AA0 151 0908200, 10 1055424530 10 

820 DATA 20195540000010,00080000802010 

830 DATA 01F83F7F83E1F0, 04088 100880400 

840 DATA 0FF9FF7F9FEFF0, 20040100402010 

850 DATA 00000000000001 ,0060C0007E487F 

860 DATA 03060F33032100,18102000FA0440 

870 DATA 38000000000040 
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